Apple II Magazines (PO)/Nibble Volume 11, No. 07 (1990-07)(MindCraft Publishing)(Side A).zip/Nibble Volume 11, No. 07 (1990-07)(MindCraft Publishing)(Side A).po/STRIKE.bas

BASIC Source File | 1996-12-24 | 667b | 2 lines

1  HOME : VTAB 20: FOR I = 1 TO 40: PRINT "_";: NEXT : FOR I = 17 TO 20: FOR J = 1 TO 2: READ A$: HTAB 4 +26 *(J = 2): VTAB I: PRINT A$: NEXT J,I: GET A$: HTAB 4: VTAB 17: PRINT " ": HTAB 4: PRINT " \_": PRINT : HTAB 4: PRINT "/":Z =  RND(1) *100 +120: SPEED= Z: VTAB 18: HTAB 7: FOR I = 7 TO 29: PRINT "o";: HTAB I: PRINT " ";: NEXT :X =  RND(1) *300
2  HTAB 29: PRINT "\| ": POKE 50,255 -127 *(X >Z): HTAB 32: PRINT "o": IF X >Z  THEN  POKE 50,255: SPEED=  RND(1) *70 +170:M = .1 + RND(1): FOR X = 28 TO 1  STEP  -1:Y =  INT(18 -M *(28 -X) +.5):Y = Y +(Y <1) *(1 -Y): HTAB X: VTAB Y: PRINT "o";: HTAB X: PRINT " ": NEXT : DATA oO,O,<|,"|/  O"," |","|  }#)",_|,|___<